home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Unreleased / (c)sd.d64 / priority rings (.txt) < prev    next >
Commodore BASIC  |  2009-02-04  |  1KB  |  62 lines
  1. 10 POKE52,48:POKE56,48:CLR
  2. 20 V=53248:PT=2040
  3. 30 GOSUB10000
  4. 35 POKEPT,192:POKEPT+1,193
  5. 40 POKEV+33,1:POKEV+32,2
  6. 45 POKEV+39,0:POKEV+40,0
  7. 46 POKEV+23,0:POKEV+29,0
  8. 50 PRINT"[147]"
  9. 60 C$(0)="[159]":C$(1)="[156]"
  10. 100 PRINT"";
  11. 105 FORH=0TO1:PRINTTAB(10);
  12. 110 FORI=0TO2
  13. 115 FORJ=0TO1
  14. 120 PRINTC$(J)"  [146]  ";
  15. 130 NEXTJ
  16. 140 NEXTI
  17. 145 PRINT
  18. 150 NEXTH
  19. 200 POKEV,50:POKEV+2,50:POKEV+1,144:POKEV+3,144
  20. 210 POKEV+27,2:POKEV+21,3
  21. 215 GOSUB1000
  22. 220 FORX=50TO250
  23. 230 POKEV,X:POKEV+2,X
  24. 240 NEXTX
  25. 250 GOSUB1000
  26. 300 FORX=250TO100STEP-1
  27. 305 FORI=1TO10:NEXTI
  28. 310 POKEV,X:POKEV+2,X
  29. 320 NEXTX
  30. 330 GOSUB1000
  31. 400 POKEV+21,1
  32. 410 GOSUB1000
  33. 500 POKEV+21,2
  34. 510 GOSUB1000
  35. 520 POKEV+21,3
  36. 530 GOSUB1000:IFT$="[209]"THENPOKEV+21,0:STOP
  37. 540 POKEV+21,0
  38. 550 GOTO200
  39. 999 STOP
  40. 1000 GETT$:IFT$=""THEN1000
  41. 1010 RETURN
  42. 10000 MEM=12288:FORI= 0 TO 16 :FORJ=0TO7
  43. 10010 READXX:POKEMEM+I*8+J,XX:NEXTJ,I
  44. 10020 RETURN
  45. 10030 DATA0,115,128,0,231,0,1,206
  46. 10040 DATA0,3,156,0,3,156,0,7
  47. 10050 DATA56,0,7,56,0,7,56,0
  48. 10060 DATA7,56,0,7,56,0,7,56
  49. 10070 DATA0,7,56,0,7,56,0,7
  50. 10080 DATA56,0,7,56,0,7,56,0
  51. 10090 DATA3,156,0,3,156,0,1,206
  52. 10100 DATA0,0,231,0,0,115,128,0
  53. 10110 DATA0,115,128,0,57,192,0,28
  54. 10120 DATA224,0,14,112,0,14,112,0
  55. 10130 DATA7,56,0,7,56,0,7,56
  56. 10140 DATA0,7,56,0,7,56,0,7
  57. 10150 DATA56,0,7,56,0,7,56,0
  58. 10160 DATA7,56,0,7,56,0,7,56
  59. 10170 DATA0,14,112,0,14,112,0,28
  60. 10180 DATA224,0,57,192,0,115,128,0
  61. 10190 DATA0,255,4,255,36,255,0,255
  62.